home *** CD-ROM | disk | FTP | other *** search
- property spriteNum, mySprite, myName, bioChan
-
- on getPropertyDescriptionList
- description = [#bioChan: [#comment: "text display sprite channel", #default: 0, #format: #integer]]
- return description
- end
-
- on beginSprite me
- mySprite = sprite(spriteNum)
- myName = mySprite.member.name
- end
-
- on mouseUp me
- sprite(bioChan).member = member(myName & ".tif")
- sprite(bioChan).visible = 1
- end
-